home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / CIM / cim_v3 / stuff / scripts / arexx / ExtraV3.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-01  |  3.7 KB  |  140 lines
  1.  
  2. /* $VER: Extra 3.0alpha (15.01.2001)
  3.  
  4.  Execute STFax IF:
  5.  
  6.                 o the Type of the Caller is not "NoNumber" or "FAX"
  7.                 
  8.                 o Comment field does NOT contain "NO STFAX"
  9.                 
  10.                 o received RING string is RING 1
  11.                 
  12.                 
  13.                 Written by Jan-Erik Tervo 1998,1999,2001.
  14.                 ARexx and CIM r32 or later must be running
  15.  
  16. */
  17.  
  18. OPTIONS RESULTS
  19.  
  20. ADDRESS COMMAND 'run >NIL: RequestChoice "CIM" "Extra Script" "OK"'
  21.  
  22. ADDRESS CIM
  23.  
  24. CURRENT_CALLERTYPE
  25.  
  26.      IF RESULT="NoNumber" THEN EXIT 5
  27.  
  28.      IF RESULT="FAX" THEN EXIT 5
  29.  
  30.  
  31.  
  32. RECEIVED_RINGSTR
  33.  
  34.      IF RESULT<>"RING 1" THEN EXIT 5
  35.  
  36.  
  37. IN_COMMENT "NO STFAX"
  38.  
  39.      IF RC=5 THEN DO
  40.  
  41.                        DEVICE_RESET_NO
  42.                        
  43.                        DEVICE_SEEKOK_NO
  44.                
  45.                        DEVICE_RELEASE
  46.      
  47.                
  48.                ADDRESS COMMAND
  49.                
  50.                        'RUN >NIL: STFAX:STFax'
  51.                        
  52.                        'sys:rexxc/WaitForPort STFAX.1'
  53.                        
  54.                        'SETPRI >NIL: STFAX:STFax 1'
  55.           
  56.           
  57.                ADDRESS STFAX.1
  58.                        
  59.                        AUTOANSWER ON
  60.                
  61.                       
  62.                       /* Lets give some time for STFax to complete */
  63.                       
  64.                       ADDRESS COMMAND
  65.                       
  66.                          'wait 180'
  67.                
  68.  
  69.                       ADDRESS STFAX.1
  70.                      
  71.                          QUIT
  72.                
  73.                
  74.                       
  75.                       ADDRESS COMMAND
  76.                       
  77.                       DO UNTIL RC>0
  78.                                                                                                 
  79.                               'sys:rexxc/WaitForPort STFAX.1'
  80.                               
  81.                               'wait 2'
  82.                       
  83.                       END
  84.               
  85.                
  86.                       ADDRESS CIM
  87.                
  88.                               /*
  89.                               Because we have altered some CIM settings
  90.                               thru ARexx we should load the original settings
  91.                               from disk.
  92.                               */
  93.                        
  94.                               SETTINGS_LOAD
  95.                        
  96.                        
  97.                               
  98.                        
  99.                
  100.                               DO UNTIL RC=0
  101.                               
  102.                                         DEVICE_OPEN
  103.                        
  104.                       
  105.                               END
  106.                               
  107.                               DO UNTIL RC=0
  108.                               
  109.                                         IS_RESET_OK                       
  110.                       
  111.                               END
  112.  
  113.                               IS_ONLINE
  114.                               IF RC=5 THEN
  115.                                              DEVICE_CLOSE
  116.                                              DEVICE_OPEN
  117.                               END
  118.                
  119.                     
  120.                     
  121.                               IS_ONLINE
  122.                     
  123.                               IF RC=5 THEN 
  124.                               
  125.                                         ADDRESS COMMAND 
  126.                                    
  127.                                              /* 'reboot' */
  128.                                         
  129.                                              'run >NIL: RequestChoice "CIM" "Can't open Device!" "OK"'
  130.                        
  131.                               END   
  132.      END
  133.  
  134.  
  135.  
  136.  
  137.  
  138. EXIT
  139.  
  140.